Evo par zadataka sa vezbi iz primene racunara, dobio sam ih od asistena da prosledim ostalima iz moje grupe, ali evo i ovde za slucaj da jos nekom zatreba... ;)
 
Option Explicit
Sub zad()
  Dim x As Double, y As Double
  x = InputBox("x= ")
  If x <> 0 Then
      y = 1 / x + x + 2
      MsgBox ("y= " & y)
  Else
      MsgBox ("y nije definisano")
  End If
End Sub
 
 
Sub zad2()
  Dim x As Double, y As Double
  x = InputBox("x= ")
  If x < -1 Then
      y = 0
  ElseIf x < 0 Then
      y = 2 * x + 2
  ElseIf x < 5 Then
      y = x ^ 2 - 4 * x + 3
  Else
      y = 8
  End If
  MsgBox ("y = " & y)
End Sub
 
 
Sub zad3()
  Dim x As Long, rec As String
  x = InputBox("x= ")
  rec = "Nema trazenog slucaja"
  Select Case x
      Case 1
          rec = "jedan"
      Case 2
          rec = "dva"
      Case 3
          rec = "tri"
      Case 4
          rec = "cetiri"
      Case 5
          rec = "pet"
      Case 6
          rec = "sest"
      Case 7
          rec = "sedam"
      Case 8
          rec = "osam"
      Case 9
          rec = "devet"
      Case 10
          rec = "deset"
      Case 11
          rec = "jedanaest"
      Case 12
          rec = "dvanaest"
      Case 13
          rec = "trinaest"
      Case 14
          rec = "cetrnaest"
      Case 15
          rec = "petnaest"
      Case 16
          rec = "sesnaest"
      Case 17
          rec = "sedamnaest"
      Case 18
          rec = "osamnaest"
      Case 19
          rec = "devetnaest"
  End Select
  MsgBox (rec)
End Sub
Sub zad33()
  Dim x As Long
  Dim rec As String
  x = InputBox("x= ")
  rec = Choose(x, "jedan", "dva", "tri", "cetiri", "pet", "sest",
"sedam", "osam", "devet", _
  "deset", "jedanaest", "dvanaest", "trinaest", "cetrnaest",
"petnaest", "sesnaest", _
  "sedamnaest", "osamnaest", "devetnaest")
  MsgBox (rec)
End Sub
 
 
Sub zad533()
  Dim x As Long, j As Long, d As Long
  Dim rec As String, recj As String, recd As String
  x = InputBox("x= ")
  If x < 20 Then
      rec = Choose(x, "jedan", "dva", "tri", "cetiri", "pet",
"sest", "sedam", "osam", _
      "devet", "deset", "jedanaest", "dvanaest", "trinaest", _
      "cetrnaest", "petnaest", "sesnaest", "sedamnaest",
"osamnaest", "devetnaest")
  Else
      j = x Mod 10
      d = Fix(x / 10)
      recj = Choose(j + 1, "", "jedan", "dva", "tri", "cetiri",
"pet", "sest", "sedam", "osam", "devet")
      recd = Choose(d, "", "dvadeset", "trideset", "cetrdeset",
"pedeset", "sezdeset", "sedamdeset", "osamdeset", "devedeset")
      rec = recd + " " + recj
  End If
  MsgBox (rec)
End Sub
 
 
Sub zad4()
  Dim x As Double, y As Double
  x = InputBox("x=")
  y = InputBox("y=")
  x = Abs(x)
  If y >= 0 Then
      If (x - 0.5) ^ 2 + y ^ 2 <= 0.5 ^ 2 Then
          MsgBox ("pripada")
      Else
          MsgBox ("ne pripada")
      End If
  Else
      If y > x - 1 Then
          MsgBox ("pripada")
      Else
          MsgBox ("ne pripada")
      End If
  End If
End Sub
 
 
Sub zad44()
  Dim x As Double, y As Double
  x = InputBox("x=")
  y = InputBox("y=")
  x = Abs(x)
  If y >= 0 Then
      If (x - 1) ^ 2 + (y - 1) ^ 2 >= 1 ^ 2 And x < 1 And y < 1 Then
          MsgBox ("pripada")
      Else
          MsgBox ("ne pripada")
      End If
  Else
      If y > x - 1 Then
          MsgBox ("pripada")
      Else
          MsgBox ("ne pripada")
      End If
  End If
End Sub
Sub zad111()
  Dim x As Double, y As Double
  x = InputBox("x=")
  y = InputBox("y=")
  y = Abs(y)
  If x >= 0 Then
      If x ^ 2 + y ^ 2 >= 3 ^ 2 And x ^ 2 + y ^ 2 <= 4 ^ 2 Then
          MsgBox ("pripada")
      Else
          MsgBox ("ne pripada")
      End If
  Else
      If y <= 4 And y >= 3 And x > -4 Then
          MsgBox ("pripada")
      ElseIf x >= -4 And x <= -3 And y < 3 Then
          MsgBox ("pripada")
      Else
          MsgBox ("ne pripada")
      End If
  End If
End Sub